BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Q-R/ReCoVeR!© 1.3.cpt/ReCoVeR!© 1.3/background_2685.txt

Text File | 1992-05-21 | 19KB | 733 lines

-- background: 2685 from stack: in.3
-- bmap block id: 3370
-- flags: 4000
-- background id: 0
-- name:
----- HyperTalk script -----
on idle
  hide menubar -- has a bug that sets the name of the stack to space.
  hide msg
  hide tool window
  global numOfpages,numOfPagesClip
  if the number of this cd > 1 and bkgnd fld fileText is empty then
    if numOfPages is 1
    then put the number of this cd - 1 into numOfpages
    go to cd 1
    set the loc of bkgnd btn id 27 to 344,247
  end if
  if the freeSize of this stack > 50000 then
    CheckUserLevel
    if the DiskSpace/1024 ‚â• 700
    then send "domenu" && quote & "Compact Stack" & quote to HyperCArd
  end if
  PlayEGYPTIANMusic
end idle



-- part 2 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=3 top=41 right=240 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: FileText
----- HyperTalk script -----
on mouseup
  global textMark
  if me is empty then exit mouseup
  set the locktext of me to false
  click at the clickLoc
  if textMark is return & " <=•} " or textMark is empty then
    put return & " {•=> " into textMark
    put textMark into the selection
    set the locktext of me to true
    exit mouseup
  end if
  -- if textMark is return & " {•=> " then
  put return & " <=•} " into textMark
  put textMark into the selection
  set the locktext of me to true
  exit mouseup
  -- end if
end mouseup

on EnterInField
  global textMark
  if textMark is return & " {•=> " then
    put return & " <=•} " into textMark
    type textMark
    exit EnterInField
  end if
  put return & " {•=> " into textMark
  type textMark
end EnterInField


-- part 5 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=99 top=269 right=334 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 29589 / 29589
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clean Text
----- HyperTalk script -----
on mousedown
  global textMark,textToClean,numOfpages,cdNum
  put return & " <=•} " into textMark
  repeat with cdNum = the number of this cd to numOfpages
    put bkgnd fld "fileText" of cd cdNum into textToClean
    if textToClean is empty then exit mouseDown
    put "Sorry, text can't be displayed but you can save it in a file." into tempMsg
    if bkgnd fld fileText is tempMsg then exit mouseDown
    if " {•=> " is not in textToClean or " <=•} " is not in textToClean
    then TryAgain
    -- put "Use 'EnterKey' to mark areas needing Deletion"
    put 999 into SDel
    put 0 into SDelTemp
    put return & " {•=> " into STemp
    put return & " <=•} " into ETemp
    put offset(STemp,textToClean) into SDel
    put offset(ETemp,textToClean) into EDel
    if SDel = 0 or EDel = 0 then TryAgain
    repeat until SDel = 0
      put offset(STemp,textToClean) into SDel
      put offset(ETemp,textToClean) into EDel
      -- put SDel && EDel && "--" after msg
      if SDel = SDelTemp then exit repeat
      put SDel into SDelTemp
      if SDel < EDel
      then delete char SDel to EDel+6 of textToClean
      if SDel > EDel
      then TryAgain
    end repeat
    lock screen
    put textToClean into bkgnd fld fileText of cd cdNum
  end repeat
  set the scroll of bkgnd fld fileText to 0
  unlock screen with visual dissolve
end mousedown

on TryAgain
  global textMark,textToClean,cdNum
  put bkgnd fld "fileText" into textToClean
  if cdNum = the number of this cd then
    answer "Click first at Begining then at End of areas needing Deletion."& "  Use ‚åòZ for Undo"
    put offset(return & " {•=> ",textToClean) into SDel
    put offset(return & " <=•} ",textToClean) into EDel
    delete char SDel to SDel+6 of textToClean
    delete char EDel to EDel+6 of textToClean

    put offset(" {•=> ",textToClean) into SDel
    put offset(" <=•} ",textToClean) into EDel
    delete char SDel to SDel+5 of textToClean
    delete char EDel to EDel+5 of textToClean

    put offset("{•=>",textToClean) into SDel
    put offset("<=•}",textToClean) into EDel
    delete char SDel to SDel+3 of textToClean
    delete char EDel to EDel+3 of textToClean

    put textToClean into bkgnd fld fileText
  end if
  exit to HyperCard
end TryAgain



-- part 6 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=197 top=269 right=334 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 10181 / 10181
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Save Text
----- HyperTalk script -----
on mousedown
  if bkgnd fld fileText is empty then exit mousedown
  put the short name of bkgnd btn id 3 into fileNameAndPath
  if fileNameAndPath is empty then exit mouseDown
  repeat with i=the number of chars of fileNameAndPath down to 1
    if char i of fileNameAndPath is ":" then exit repeat
    put char i of fileNameAndPath before temp
  end repeat
  ----------------------------- HCA 1.2.5 -----------------------------
  put SFPutFileWiLock(105,83,"Save Text of file:" && quote & temp & quote && "as:","Text of" && temp ) into newName
  ---------------------------------------------------------------------
  if newName is fileNameAndPath then
    answer "Choose another fileName. Nothing was saved."
    exit mouseDown
  end if
  if newName is empty then exit mouseDown
  open file newName
  open file fileNameAndPath
  put "0" into it
  lock screen
  go to cd 2
  put 0 into i
  set the cursor to watch
  repeat until it is empty
    put i+1 into i
    get bkgnd fld fileText of cd i
    write it to file newName
  end repeat
  close file newName
  close file fileNameAndPath
  CLS
end mousedown


-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=445 top=269 right=328 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mousedown
  global RestoreSoundVol
  CheckUserLevel
  CLS
  if the short name of bkgnd fld id 48 is "Sound ON" then
    setVolume 2
    play "ByeNow!"
  end if
  if the DiskSpace/1024 > 300
  then send "domenu" && quote & "Compact Stack" & quote to HyperCArd
  send "domenu" && quote & "Quit HyperCard" & quote to HyperCArd
  wait until the sound is "done"
  if RestoreSoundVol is not empty
  then setVolume RestoreSoundVol
  exit to HyperCArd -- very important
end mousedown



-- part 15 (button)
-- low flags: 80
-- high flags: C001
-- rect: left=74 top=54 right=74 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Select a file to Recover
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
end mouseUp



-- part 24 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=3 top=240 right=254 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 12
-- part name: PageNum


-- part 25 (button)
-- low flags: 80
-- high flags: 2002
-- rect: left=148 top=239 right=255 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 11552 / 11552
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mousedown
  global pNum
  if the number of this cd > 1 then
    visual dissolve
    go prev
    put "Page" && the number of this cd into bkgnd fld pageNum
  end if
end mousedown



-- part 26 (button)
-- low flags: 80
-- high flags: 2002
-- rect: left=162 top=239 right=255 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 17663 / 17663
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mousedown
  global numOfPages
  if the number of this cd < numOfPages then
    visual dissolve
    go next
    put "Page" && the number of this cd into bkgnd fld pageNum
  end if
end mousedown



-- part 3 (button)
-- low flags: 00
-- high flags: C000
-- rect: left=5 top=5 right=40 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: :Recovered Files:Acta 2.0 documents:? Acta 2.0 document 02
----- HyperTalk script -----
on mousedown
  do "push cd"
  set hilite of me to true
  lock screen
  go to cd 1
  show cd pict
  show cd btn blackBkgnd
  show cd fld shareware
  unlock screen with visual wipe down
end mousedown

on hideAbout
  set Hilite of me to true
  lock screen
  hide cd btn blackBkgnd
  hide cd fld shareware
  unlock screen with visual dissolve
end HideAbout



-- part 34 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=492 top=239 right=251 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 36 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=497 top=243 right=255 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on mousedown
  play finished
  set the userlevel to 5
end mousedown


-- part 39 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=320 top=239 right=256 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 31 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=321 top=240 right=254 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mousedown
  set lockMessages to true
  ScrollMeLeft
end mousedown
on mouseup
  set lockMessages to false
end mouseup

on mouseStilldown
  ScrollMeLeft
end mouseStilldown

on ScrollMeLeft
  global numOfpages,tempMove
  if the number of this cd ≠ 1 then
    visual dissolve
    go prev
  else
    set the loc of bkgnd btn id 27 to 344,247
    exit ScrollMeLeft
  end if
  if tempMove is empty
  then put 125 div numOfpages into tempMove
  put (first item of the loc of bkgnd btn id 27) - tempMove & "," & second item of the loc of bkgnd btn id 27 into tempLoc
  set the loc of bkgnd btn id 27 to tempLoc
end ScrollMeLeft



-- part 29 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=478 top=240 right=254 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mousedown
  set lockMessages to true
  ScrollMeRight
end mousedown
on mouseup
  set lockMessages to false
end mouseup

on mouseStilldown
  ScrollMeRight
end mouseStilldown
on ScrollMeRight
  global numOfpages,tempMove
  if the number of this cd < numOfPages then
    visual dissolve
    go next
  else
    set the loc of bkgnd btn id 27 to 469,247
    exit ScrollMeRight
  end if
  if tempMove is empty
  then put 125 div numOfpages into tempMove
  put (first item of the loc of bkgnd btn id 27) + tempMove & "," & second item of the loc of bkgnd btn id 27 into tempLoc
  set the loc of bkgnd btn id 27 to tempLoc
end ScrollMeRight


-- part 27 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=336 top=240 right=254 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
-- on mouseEnter
global numOfpages,temp
put 125 div numOfpages into temp
-- end mouseEnter

-- on mouseStillDown
global numOfpages,temp,mousePos
put "344,238,470,254" into theRange
put the mouseloc into mousePos
if mousePos is within theRange
then set the loc of me to first item of mousePos ,246
-- end mouseStillDown

-- on mouseup
global numOfpages,temp,mousePos
put (first item of mousePos - 343) div temp + 1 into cdNum
put cdNum into msg
-- if cdNum ≠ 0 and cdNum ≤ numOfpages
if cdNum ≤ numOfpages
then go to cd cdNum
if cdNum = 0
then set the loc of bkgnd btn id 27 to 344,246
-- end mouseup

-- on mouseLeave
global numOfpages,temp,mousePos
put (first item of mousePos - 343) div temp + 1 into cdNum
put cdNum into msg
-- if cdNum ≠ 0 and cdNum ≤ numOfpages
if cdNum ≤ numOfpages
then go to cd cdNum
if cdNum = 0
then set the loc of bkgnd btn id 27 to 344,246
-- end mouseLeave



-- part 40 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=0 top=269 right=334 bottom=100
-- title width / last selected line: 0
-- icon id / first selected line: 6544 / 6544
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mousedown
  global fileNameAndPath,numOfPages
  global fileNameAndPath,numOfPages
  CLS
  --------------------------- HCA 1.2.5 -------------------------------
  show bkgnd btn id 15 at 256,64
  set the name of bkgnd btn id 15 to "Select a file to Recover"
  put SFGetFileWiLock("All",82,83) into fileNameAndPath
  hide bkgnd btn id 15
  ---------------------------------------------------------------------
  if fileNameAndPath is empty then exit mousedown
  set lockMessages to true
  set the cursor to watch
  put 1 into i
  open file fileNameAndPath
  put "Zero" into it
  put "" into fileTextTemp
  read from file fileNameAndPath for 30000
  put it after fileTextTemp
  if fileTextTemp is empty then
    close file fileNameAndPath
    answer "Sorry no text was found."
    exit mouseDown
  end if
  put fileTextTemp into bkgnd fld "FileText" of cd i
  put i+1 into i
  lock screen
  repeat until it is empty
    put "" into fileTextTemp
    read from file fileNameAndPath for 30000
    put it after fileTextTemp
    if fileTextTemp is not empty then
      if i > 21 then
        go to last cd
        send "domenu New Card" to HyperCard
        put "Page" && i into bkgnd fld "PageNum" of cd i
      end if
      put fileTextTemp into bkgnd fld "FileText" of cd i
      put i+1 into i
    else put i - 1 into i
  end repeat
  close file fileNameAndPath
  if the length of fileNameAndPath > 62 then
    repeat until fileNameAndPath is empty
      delete first char of fileNameAndPath
      if first char of fileNameAndPath is ":" and the length of fileNameAndPath ≤ 62
      then exit repeat
    end  repeat
  end if
  put i into numOfPages
  if numOfPages > 1 then
    show bkgnd btn id 25
    show bkgnd btn id 26
    show bkgnd fld id 24
    go to cd 1
  end if
  if bkgnd fld "fileText" is empty then
    put "Sorry text can't be displayed but you can save it in a file." into tempMsg
    put tempMsg into bkgnd fld "fileText"
    -- block "Clean Text" since bkgnd fld fileText is empty.
    if the number of this cd is 1 then show cd btn blockTheWay
  end if
  set the name of bkgnd btn id 3 to fileNameAndPath
  hide cd pict
  if the short name of bkgnd fld id 48 is "Sound ON" then
    setVolume 2
    -- PlayEGYPTIANMusic
  end if
  set lockMessages to false
  unlock screen
end mousedown



-- part 46 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=295 top=269 right=334 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 700 / 700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FIND…
----- HyperTalk script -----
on mouseUp
  repeat 2
    repeat with i=700 to 712
      set the icon of me to i
      wait 10
    end repeat
  end repeat
  set the icon of me to 700
  answer quote & "FIND…" & quote && "is available only in ReCoVeR!© 2.0"
end mouseUp



-- part 48 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=260 top=241 right=253 bottom=319
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name:


-- part 49 (button)
-- low flags: 00
-- high flags: 6000
-- rect: left=259 top=240 right=254 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  global RestoreSoundVol
  set hilite of me to true
  if bkgnd fld id 48 is "Sound OFF" then
    setVolume 2
    put "Sound ON" into bkgnd fld id 48
  else
    setVolume 0
    put "Sound OFF" into bkgnd fld id 48
  end if
  answer "Available only in ReCoVeR!© 2.0" -- -- -- -- -- -- -- -- -- --
  put "Sound OFF" into bkgnd fld id 48     -- -- -- -- -- -- -- -- -- --
end mouseup


-- part 50 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=178 top=241 right=253 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: Help


-- part 52 (button)
-- low flags: 00
-- high flags: 6000
-- rect: left=177 top=240 right=254 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  set the hilite of me to false
  put "HELP" into bkgnd fld "help"
  answer quote & "HELP" & quote && "is available only in ReCoVeR!© 2.0"
  send mousedown to bkgnd btn id 3
  set the hilite of me to true
end mouseup


-- part 57 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=378 top=5 right=19 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 2048
-- line height: 12
-- part name: VersionNum
----- HyperTalk script -----
on mouseDown
  put "Version 1.2.7 © 1991" into me
  if cd fld "VersionNum" is not bkgnd fld "VersionNum"
  then repeat with i=1 to the number of cds
  put me into bkgnd fld VersionNum of cd i
end repeat
answer "Register now to get ReCoVeR!© 2.0"
end mouseDown